       ID Division.
       Program-ID. A1902.
       Environment Division.
      *Datendeklaration
       Data Division.
       01  a pic x(10).
       01  Zahl1 pic 9(5)V99.
       01  Zahl2 pic 9(5).
       01  Zahl3 pic 9(5).
       01  Zahl4 pic S9(5)V99.
      *Ausgabeformate
       01  Zahl1-out pic zz,zz9.99.
       01  Zahl2-out pic ****9.
       01  Zahl4-out1 pic ++,++9.99.
       01  Zahl4-out2 pic zz,zz9.99-.
       01  leerzeile pic x(80) value all SPACES.
       01  strich pic x(80) value all '_'.
       01  titel pic x(80) value '   --- HALLO ---   '.
       Procedure division.
       main.
           perform leer 24 times.
           display titel upon console
           display 'Gib Zahl1 ein:' upon console
           accept Zahl1 from console
           move 'HTL' to a
           move 5 to Zahl2
           compute Zahl3 = Zahl2 + 1
           move Zahl3 to Zahl2-out
           move Zahl1 to Zahl1-out
           display 'Zahl1= ' Zahl1 ' Zahl1-out= ' Zahl1-out upon console
           display 'Gib Zahl4 ein ' upon console
           accept Zahl4 from console
           move zahl4 to zahl4-out1
           move zahl4 to zahl4-out2
           display 'Zahl4= ' Zahl4 ' Zahl4-out1= ' Zahl4-out1
           ' Zahl4-out2= ' Zahl4-out2 upon console
           stop run.
       leer.
           display leerzeile upon console.
